inherited frmAbnorDepotAdjust: TfrmAbnorDepotAdjust
  Left = 387
  Top = 128
  Caption = #24322#24120#24211#23384#35843#25972
  ClientHeight = 453
  ClientWidth = 810
  FormStyle = fsStayOnTop
  ExplicitWidth = 818
  ExplicitHeight = 480
  PixelsPerInch = 96
  TextHeight = 12
  object grpCheckPrice: TcxGroupBox
    Left = 0
    Top = 0
    Align = alTop
    Caption = #36873#25321#36135#21697
    Style.Shadow = True
    TabOrder = 0
    DesignSize = (
      810
      149)
    Height = 149
    Width = 810
    object chkDepotZeroAmt: TcxCheckBox
      Left = 15
      Top = 50
      AutoSize = False
      Caption = #24211#23384#25968#37327#20026'0'#65292#26377#37329#39069#30340#36135#21697#12290
      TabOrder = 4
      Transparent = True
      OnClick = chkDepotZeroAmtClick
      Height = 21
      Width = 257
    end
    object chkPriceUp: TcxCheckBox
      Left = 323
      Top = 50
      AutoSize = False
      Caption = #24211#23384#21333#20215#26159#21442#32771#36827#20215'         '#20493#20197#19978#30340#36135#21697#12290
      TabOrder = 5
      Transparent = True
      OnClick = chkPriceUpClick
      Height = 21
      Width = 269
    end
    object chkPriceUnder: TcxCheckBox
      Left = 323
      Top = 80
      AutoSize = False
      Caption = #24211#23384#21333#20215#26159#21442#32771#36827#20215'         '#20493#20197#19979#30340#36135#21697#12290
      TabOrder = 8
      Transparent = True
      OnClick = chkPriceUnderClick
      Height = 21
      Width = 305
    end
    object chkPriceFloat: TcxCheckBox
      Left = 15
      Top = 113
      AutoSize = False
      Caption = #26412#26399#26399#26411#19982#26399#21021#25104#26412#21333#20215#28014#21160#27604#29575#36229#36807'            % '#33539#22260#30340#36135#21697#12290
      TabOrder = 11
      Transparent = True
      OnClick = chkPriceFloatClick
      Height = 21
      Width = 377
    end
    object edtPriceUp: TcxSpinEdit
      Left = 454
      Top = 50
      Properties.AssignedValues.MinValue = True
      Properties.DisplayFormat = '#0.00'
      Properties.EditFormat = '#0.00'
      Properties.ValueType = vtFloat
      TabOrder = 6
      Value = 1.000000000000000000
      Width = 49
    end
    object edtPriceUnder: TcxSpinEdit
      Left = 454
      Top = 80
      Properties.AssignedValues.MinValue = True
      Properties.DisplayFormat = '#0.00'
      Properties.EditFormat = '#0.00'
      Properties.ValueType = vtFloat
      TabOrder = 9
      Value = 1.000000000000000000
      Width = 49
    end
    object edtPriceFloat: TcxSpinEdit
      Left = 242
      Top = 113
      Properties.AssignedValues.MinValue = True
      Properties.DisplayFormat = '#0.00'
      Properties.EditFormat = '#0.00'
      Properties.ValueType = vtFloat
      TabOrder = 16
      Value = 100.000000000000000000
      Width = 60
    end
    object btnFilter: TcxButton
      Left = 717
      Top = 111
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #36807#28388
      TabOrder = 10
      OnClick = btnFilterClick
    end
    object chkHappen: TcxCheckBox
      Left = 15
      Top = 80
      AutoSize = False
      Caption = #26174#31034#26412#26399#26377#21457#29983#30340#36135#21697
      TabOrder = 7
      Transparent = True
      OnClick = chkHappenClick
      Height = 21
      Width = 201
    end
    object edtProductType: TcxDBLookupComboBox
      Tag = 32
      Left = 77
      Top = 21
      DataBinding.DataField = 'PTypeID'
      DataBinding.DataSource = dsFilter
      Properties.CaseSensitiveSearch = True
      Properties.DropDownListStyle = lsEditList
      Properties.IncrementalFiltering = False
      Properties.ListColumns = <>
      Properties.ListOptions.SyncMode = True
      Properties.OnChange = edtProductTypePropertiesChange
      TabOrder = 0
      Width = 100
    end
    object cxLabel1: TcxLabel
      Left = 13
      Top = 23
      Caption = #36135#21697#31867#21035#65306
      Transparent = True
    end
    object cxLabel2: TcxLabel
      Left = 555
      Top = 23
      Caption = #23384#36135#31867#22411#65306
      Enabled = False
      Transparent = True
    end
    object edtDepotKind: TcxDBLookupComboBox
      Tag = 20
      Left = 619
      Top = 21
      DataBinding.DataField = 'DepotKind'
      DataBinding.DataSource = dsFilter
      Enabled = False
      Properties.CaseSensitiveSearch = True
      Properties.DropDownListStyle = lsEditList
      Properties.IncrementalFiltering = False
      Properties.KeyFieldNames = 'depotkindid'
      Properties.ListColumns = <
        item
          FieldName = 'name'
        end>
      Properties.ListOptions.SyncMode = True
      Properties.OnChange = edtDepotKindPropertiesChange
      TabOrder = 3
      Width = 100
    end
    object edtCost: TcxComboBox
      Left = 432
      Top = 21
      Properties.OnChange = edtCostPropertiesChange
      TabOrder = 2
      Width = 110
    end
    object cxLabel3: TcxLabel
      Left = 190
      Top = 23
      Caption = #36135#21697#23646#24615#65306
      Transparent = True
    end
    object cxLabel4: TcxLabel
      Left = 368
      Top = 23
      Caption = #25104#26412#26680#31639#65306
      Transparent = True
    end
    object edtProductKind: TcxDBComboBox
      Tag = 25
      Left = 252
      Top = 21
      DataBinding.DataField = 'ProductKind'
      DataBinding.DataSource = dsFilter
      TabOrder = 1
      Width = 100
    end
    object lblDepotid: TcxLabel
      Left = 485
      Top = 116
      Caption = #20179#24211#65306
      Transparent = True
    end
    object edtDepotid: TcxDBLookupComboBox
      Tag = 7
      Left = 525
      Top = 114
      DataBinding.DataField = 'depotid'
      DataBinding.DataSource = dsFilter
      Properties.CaseSensitiveSearch = True
      Properties.DropDownListStyle = lsEditList
      Properties.IncrementalFiltering = False
      Properties.ListColumns = <>
      Properties.ListOptions.SyncMode = True
      Properties.OnChange = edtProductTypePropertiesChange
      TabOrder = 18
      Width = 100
    end
  end
  object cxGroupBox1: TcxGroupBox
    Left = 0
    Top = 149
    Align = alTop
    Caption = #35843#25972#26041#27861
    Style.Shadow = True
    TabOrder = 1
    DesignSize = (
      810
      64)
    Height = 64
    Width = 810
    object edtAdjustFunc: TcxComboBox
      Left = 16
      Top = 24
      Properties.ImmediatePost = True
      Properties.OnChange = edtAdjustFuncPropertiesChange
      TabOrder = 5
      Text = 'edtAdjustFunc'
      Width = 121
    end
    object lblAdjustRate: TcxLabel
      Left = 156
      Top = 25
      AutoSize = False
      Caption = #35843#25972#27604#29575#65306'          %'
      Transparent = True
      Height = 16
      Width = 141
    end
    object edtAdjustRate: TcxSpinEdit
      Left = 215
      Top = 23
      Properties.AssignedValues.MinValue = True
      Properties.DisplayFormat = '#0.00'
      Properties.EditFormat = '#0.00'
      Properties.ValueType = vtFloat
      TabOrder = 4
      Width = 60
    end
    object btnAdjust: TcxButton
      Left = 300
      Top = 22
      Width = 75
      Height = 25
      Caption = #35843#25972
      TabOrder = 0
      OnClick = btnAdjustClick
    end
    object btnAll: TcxButton
      Left = 520
      Top = 22
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20840#36873
      TabOrder = 1
      OnClick = btnAllClick
    end
    object btnEmpty: TcxButton
      Left = 602
      Top = 22
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20840#28165
      TabOrder = 2
      OnClick = btnEmptyClick
    end
    object btnAddToAdjustBill: TcxButton
      Left = 692
      Top = 22
      Width = 100
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #28155#21152#21040#35843#20215#21333
      TabOrder = 3
      OnClick = btnAddToAdjustBillClick
    end
  end
  object GrdProduct: TcxGrid
    Left = 0
    Top = 213
    Width = 810
    Height = 120
    Align = alClient
    TabOrder = 2
    ExplicitHeight = 71
    object ViewProduct: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsProduct
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      Styles.Background = MainDM.bslBackGroup
      Styles.ContentEven = MainDM.bsEven
      Styles.ContentOdd = MainDM.bsOdd
      Styles.Header = MainDM.bsTitle
      Styles.Selection = MainDM.bsSelect
      object ViewProductchoice: TcxGridDBColumn
        Caption = #36873#25321
        DataBinding.FieldName = 'choice'
        HeaderAlignmentHorz = taCenter
        Width = 44
      end
      object ViewProductcode: TcxGridDBColumn
        DataBinding.FieldName = 'code'
        HeaderAlignmentHorz = taCenter
        Width = 75
      end
      object ViewProductname: TcxGridDBColumn
        DataBinding.FieldName = 'name'
        HeaderAlignmentHorz = taCenter
        Width = 127
      end
      object ViewProductspecs: TcxGridDBColumn
        DataBinding.FieldName = 'specs'
        HeaderAlignmentHorz = taCenter
        Width = 98
      end
      object ViewProductuName: TcxGridDBColumn
        DataBinding.FieldName = 'uName'
        HeaderAlignmentHorz = taCenter
        Width = 50
      end
      object ViewProductqty: TcxGridDBColumn
        DataBinding.FieldName = 'qty'
        HeaderAlignmentHorz = taCenter
        Width = 54
      end
      object ViewProductprice: TcxGridDBColumn
        DataBinding.FieldName = 'price'
        HeaderAlignmentHorz = taCenter
        Width = 59
      end
      object ViewProductamount: TcxGridDBColumn
        DataBinding.FieldName = 'amount'
        HeaderAlignmentHorz = taCenter
        Width = 56
      end
      object ViewProductadjapurreprice: TcxGridDBColumn
        DataBinding.FieldName = 'adjapurreprice'
        HeaderAlignmentHorz = taCenter
        Width = 54
      end
      object ViewProductadjapAMT: TcxGridDBColumn
        DataBinding.FieldName = 'adjapAMT'
        HeaderAlignmentHorz = taCenter
        Width = 59
      end
      object ViewProductAMT: TcxGridDBColumn
        DataBinding.FieldName = 'AMT'
        HeaderAlignmentHorz = taCenter
        Width = 54
      end
    end
    object LevelProduct: TcxGridLevel
      GridView = ViewProduct
    end
  end
  object GrdDepot: TcxGrid
    Left = 0
    Top = 341
    Width = 810
    Height = 112
    Align = alBottom
    TabOrder = 3
    ExplicitTop = 284
    object ViewDepot: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsDepot
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      Styles.Background = MainDM.bslBackGroup
      Styles.ContentEven = MainDM.bsEven
      Styles.ContentOdd = MainDM.bsOdd
      Styles.Header = MainDM.bsTitle
      Styles.Selection = MainDM.bsSelect
      object ViewDepotdepotname: TcxGridDBColumn
        DataBinding.FieldName = 'depotname'
        HeaderAlignmentHorz = taCenter
        Width = 296
      end
      object ViewDepotqty: TcxGridDBColumn
        DataBinding.FieldName = 'qty'
        HeaderAlignmentHorz = taCenter
        Width = 216
      end
      object ViewDepotamount: TcxGridDBColumn
        DataBinding.FieldName = 'amount'
        HeaderAlignmentHorz = taCenter
        Width = 218
      end
    end
    object LevelDepot: TcxGridLevel
      GridView = ViewDepot
    end
  end
  object cxSplitter1: TcxSplitter
    Left = 0
    Top = 333
    Width = 810
    Height = 8
    HotZoneClassName = 'TcxXPTaskBarStyle'
    AlignSplitter = salBottom
    Control = GrdDepot
    ExplicitTop = 213
    ExplicitWidth = 128
  end
  object dsProduct: TDataSource
    DataSet = qryProduct
    Left = 236
    Top = 312
  end
  object dsDepot: TDataSource
    DataSet = qryDepot
    Left = 204
    Top = 440
  end
  object qryProduct: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      
        'exec p_checkAbnorPrice '#39'select distinct cast(1 as bit) as choice' +
        ', p.code p_code, p.name p_name, p.spec p_spec, u.unitname uname,' +
        ' a.eqty as qty, a.eprice price, a.eamount amount, 0.00 adjustpri' +
        'ce, 0.00 adjustamt, 0.00 amt, p.p_id from tt_bill a, td_product ' +
        'p, td_unitprice u, #product t where p.p_id=u.productid and u.bas' +
        'eunit=1 and a.productid=p.p_id and a.tid=t.tid'#39
      '  ,'#39#39',1,'#39'2010-09-20'#39',1,1,1,1,1,1,1,1,1,1')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    AfterScroll = qryProductAfterScroll
    Left = 164
    Top = 316
    object qryProductchoice: TBooleanField
      FieldName = 'choice'
    end
    object qryProductcode: TWideStringField
      DisplayLabel = #36135#21697#32534#30721
      FieldName = 'code'
      Size = 32
    end
    object qryProductname: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'name'
      Size = 64
    end
    object qryProductspecs: TWideStringField
      DisplayLabel = #35268#26684
      FieldName = 'specs'
      Size = 64
    end
    object qryProductuName: TWideStringField
      DisplayLabel = #21333#20301
      FieldName = 'uName'
      Size = 64
    end
    object qryProductqty: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'qty'
    end
    object qryProductprice: TFloatField
      DisplayLabel = #35843#21069#21333#20215
      FieldName = 'price'
    end
    object qryProductamount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'amount'
    end
    object qryProductadjapurreprice: TFloatField
      DisplayLabel = #35843#21518#21333#20215
      FieldName = 'adjapurreprice'
    end
    object qryProductadjapAMT: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'adjapAMT'
    end
    object qryProductAMT: TFloatField
      DisplayLabel = #24046#39069
      FieldName = 'AMT'
    end
    object qryProductproductid: TIntegerField
      FieldName = 'productid'
    end
    object qryProductunitid: TIntegerField
      FieldName = 'unitid'
    end
  end
  object qryDepot: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select d.name as depotname,   b.quantity as qty,   b.amount'
      '  from tt_book b,td_depot d'
      'where b.depotid=d.depotid and b.productid=:productid')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 144
    Top = 436
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'productid'
        Value = nil
      end>
    object qryDepotdepotname: TWideStringField
      DisplayLabel = #20179#24211
      FieldName = 'depotname'
      Size = 60
    end
    object qryDepotqty: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'qty'
    end
    object qryDepotamount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'amount'
    end
  end
  object cdsFilter: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'PTypeID'
        DataType = ftInteger
      end
      item
        Name = 'PKind'
        DataType = ftInteger
      end
      item
        Name = 'DepotKind'
        DataType = ftInteger
      end
      item
        Name = 'ProductKind'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'depotid'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 204
    Top = 60
    object cdsFilterID: TIntegerField
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsFilterPTypeID: TIntegerField
      FieldName = 'PTypeID'
    end
    object cdsFilterPKind: TIntegerField
      FieldName = 'PKind'
    end
    object cdsFilterDepotKind: TIntegerField
      FieldName = 'DepotKind'
    end
    object cdsFilterProductKind: TStringField
      FieldName = 'ProductKind'
    end
    object cdsFilterdepotid: TIntegerField
      FieldName = 'depotid'
    end
  end
  object dsFilter: TDataSource
    DataSet = cdsFilter
    Left = 256
    Top = 60
  end
end
